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INTRODUCTION  AND  PURPOSE 


The  AIM-7F  sparrow-is  an  air  intercept  nissile  which  is  cur¬ 
rently  maintained  in  both  US  Air  Force  and  Navy  inventories. 

This  paper  presents  the  results  of  a  study  of  AIM-7F  readiness 
initiatives.  There  are  approximately  4*450  of  these  missiles 
in  Air  Force  inventory^today,  but  no  spare  Guidance  and  Control 
Sections  (G$Cs)  were  ever  procured.  As  a  result,  some  missiles 
are  unserviceable  while  they  await  the  return  of  serviceable 
GftCs  through  the  resupply  pipelines.  HQ  AFLC/LORIS  came  to  HQ 
AFLC/XRS  in  August  1981,  and  requested  help  in  determining  the 
best  quantities  of  spare  G$Cs  to  be  procured. 

The  second  half  of  this  working  paper  describes  the  computer 
program  Missile  Facility  Simulator  (MFS),  which  can  be  used  to 
predict  future  states  of  the  AIM-7F  resupply  system,  and  ask 
some  ’’what  if...”  questions  while  varying  any  of  several  parameters. 

This  allows  one  to  see  the  impact  today's  actions  will  have 
at  a  later  point  in  time,  and  can  be  especially  helpful  in  the 
planning  stages  by  indicating  potential  problem  areas. 
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BACKGROUND 


The  items  on  the  missile  which  are  subject  to  time  related 
failure  and  subsequently  require  repair  are  the  Target  Seeker  (TS) 
and  the  Flight  Control  (FC),  which  collectively  are  called  a 
Guidance  and  Control  Section.  The  USAF>missile  inventory  has 
increased  from  4,437  in.  1981  to  4,915  in  early  1982  and  will 

*  -  m 

decrease  from  that  level  to  around  4,350  by  the  year  1986.  On 
the  average,  there  will  be  about  4,450  AIM-7Fs  (Figure  1). 

AIM-7F  MISSILE  INVENTORY  (22  JULY  198-1) 


1st 

2nd 

3rd 

4  th 

FY  81 

4437 

FY  82 

4915 

4646 

4616 

4586 

FY  83 

4562 

4538 

4514 

4490 

FY  84 

4475 

4460 

4445 

4430 

FY  85 

4415 

4385 

4370 

FY  86 

4355 

4340 

4325 

4310 

FIGURE  1 


The  above  quantifies  are  the  net  result  of  on-hand,  due- in, 

I 

and  due-out  missiles#  Those  which  are  due-out  include  scheduled 

test  firings,  training,  and  Foreign  Military  Sales  (FMS).  In 

* 

each  of  these  cases,  the  missiles  are  not  replaced  with  AIM-7Fs 
on  a  one-for-one  basis;  Rather,  AIM-7MS  will  be  procured  to  replace 
AIM-7Fs  depleted  through  FMS.  Also,  several  AIM-7FS  will  be 
converted  to  AIM-7Ms  by  removal  and  replacement  of  the  -7F  G§C 
with  a  -7M  G$C.  This  is  because  it  has  been  decided  that  the 


AIM-7F  G|C  spares  requirenent  will  be  satisfied  with  -7M  G§Cs, 
which  enhance  capability  at  a  lower  overall  cost.  While  this 
study  is  not  concerned  with  the  AIM-7M,  which  be  funded  by  BP26, 
initial  spares,  this  increase  in  the  number  of  AIM-7Ms  will 
need  to  be  supported,  and  must  be  considered  when  determining 
AIM-7M  spares  requirements.  „ 

The  decision  to  -buy-.r 7M  G§Cs  mentioned  above  was  made  at  the 
AIM- 7  Readiness  Initiatives  Meeting,  July  1981,  at  Warner  Robins 
Air  Logistics  Center.  There  it  was  also  stated  that  the  buyout 
of  spare  G$Cs  should  not  include  safety  stock  since  there  is 
no  guideline  (10!,  201,  501).  Only  801  funding  of-' the  pipeline; 
the  expected  number  in  repair,  in  transit,  or  awaiting  repair  or 
transportation  would  be  procured.  But  even  this  low  level  was 
decreased  in  December  1981,  when  it  was  discovered  that  rising 
production  costs  and  limited  funds  would  reduce  the  funding 
to  roughly  40t  of  the  pipeline.  It  was  at  this  time  that  the 
main  thrust  of  this  study  shifted--how  to  increase  missile  availa¬ 
bility,  given  a  dollar  constraint,  by  possibly  spending  some 
of  the  available  funds  to  reduce  the  size  of  the  pipeline,  and 
thus  bring  up  more  missiles.  This  is  discussed  further  in  the 
next  section.  Maintenance  Policies. 


MAINTENANCE  POLICIES 


The  present  AIM- 7F  ‘maintenance  system  (Figure  2)  has  a  problem. 
There  are  no  individual  shipping  containers  for  Target  Seekers 
(TS)  and  Flight  Controls  (FCs)  respectively.  This  means  that 
if  a  FC  is  found  to  be  failed,  maintenance  must  wait  for  a  mate 
to  fail  (a  TS  in  this'taae)  before  shipping  the  pair  to  the  depot 
for  repair.  The  empty  space  cannot  be  filled  with  foam  in  this 
particular  situation  because  of  physical  constraints  and  sensi¬ 
tivity  of  the  equipment,  but  there  is  an  alternative.  A  service¬ 
able  mate  can  be  sent  along  for  the  ride  (44  days!  and  either 
bring  down  another  missile  or  reduce  the  ready  rate  and  expected 
availability.  A  further  complication  is  that  the  TS  fails  about 
twice  as  often  as  the  FC.  Now  it  may  have  been  the  extremely 
low  rates  of  .0043  and  .0021  G§C  removals  per  quarter  that  prompted 
the  designers  of  this  system  to  not  be  concerned  about  the  dual 
containers  and  lack  of  spares,  but  as  a  simulation  program  written 
for  this  study  points  out,  there  is  reason  for  concern. 


FIGURE  2 


Another  problem  with  the  present  containers  is  that  they 
inhibit  lateral  resupply  of  TSs  and  FCs  between  missile  locations. 
Lateral  resupply  isn’t  practical  with  the  dual  containers  since 
operational  spare  sections  would  be  made  unavailable  and  possibly 


cause  a  serviceable  missile  to  be  taken  down  while  they  fill 
space  during  shipment.  Lateral  resupply  would  be  most  helpful 
in  the  event  of  war,  since  long  repair  cycles  could  otherwise 
make  many  missiles  useless  throughout  the  first  141  days  of  war, 
well  beyond  the  surge. 
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MISSILE  FACILITY  SIMULATOR  PROGRAM 


The  Missile  Facility  Simulator  (MFS)  is  a  computer  program 
which  simulates  the  AIM-7F  resupply  system.  The  effect  of  changes 
to  the  maintenance  policy,  spares  stock  levels,  missile  inventory 
levels,  pipeline  times,  etc.,  can  be  seen  in  missile  availability 
measures.  Potential-  problem  areas  such  as  constraints  on  trans¬ 
portation  can  also  be  seen  in  the  output. 

The  program  is  written  in  GPSS  (General  Purpose  Simulator 
System),  an  event  oriented  simulation  language.  It  also  contains 
some  FORTRAN  subroutines  which  format  and  summariz-e  data  before 
tables  are  printed. 

The  resupply  system  was  modeled  as  explicitly  as  possible 
given  the  available  data.  The  total  number  of  missiles  was  input 
as  data,  and  since  actual  missile  inventory  levels  at  specific 
locations  are  classified  (and  therefore  could  not  be  run  on  the 
CREATE  computer  at  Wright-Patterson  AFB).  The  total  number  of 
missiles,  spare  G$Cs,  and  individual  item  containers  are  distrib¬ 
uted  among  the  number  of  operating  loctions.  By  selecting  a 
somewhat  wide  range  of  levels,  from  location-to-location,  one 

gets  a  good  idea  of  iiow  the  system  behaves  as  a  whole,  and  also 

* 

how  the  different  levels  affect  backorders  at  individual  locations. 
This  last  point  is  mentioned  because  the  more  missiles  there 
are  at  a  facility,  the  greater  the  likelihood  of  simultaneous 
failure  of  a  Target  Seeker  and  a  Flight  Control,  and  consequently 
a  dual  container  can  be  used  for  shipping  to  depot  repair  without 
a  "waiting-mate"  delay. 


Failures  are  generated  by  a  Poisson  frequency  distribution 
function,  and  repair  times  are  assumed  to  be  uniform  around  the 
mean . 

The  quantities  of  missiles.  Target  Seekers,  Flight  Controls, 
and  individual  containers  are  entered  into  the  program  by  meanc 
of  FUNCTION  statements.  A  description  can  be  found  at  the  right 
of  each  FUNCTION  statement  which  tells  what  the  records  directly 
below  the  statement  refer  to.  For  example: 

17  FUNCTION  PHI  D15  TS  CANS  1,10/2,10/3,10/4, 
10/5,10/6,20/7,20/8,20/9,20/10,20/11,30/12,30/13,30/14,30/15,30/ 
tells  us  that  bases  1-5  have  10  Target  Seeker  single  containers, 
6-10  have  20,  and  11-15  have  30.  These  FUNCTION  statements  are 
located  at  the  end  of  the  program. 
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RECOMMENDATIONS 


As  mentioned  in  the  introduction,  by  the  time  this  study 
was  nearly  completed,  the  available  funding  dropped  to  such  a 
level  that  only  50  Guidance  and  Control  sections  could  be  afforded. 
Note  also  that  for  the  cost  of  one  of  these  G§Cs,~ enough  TS  and 
FC  individual  containers. .could  be  procured  to  reduce  the  "waiting 
mate"  time  to  essentially  zero. 

The  following  options  are  presented  with  their  impact  on 
missile  availability  so  that  you  can  see  the  benefit  of  having 
separate  containers  for  individual  TSs,  FCs.  Also'  included  are 
assessments  of  a  pipeline  buy  (90  spares)  and  the  current  state 
of  the  system  (0  spares). 


G$C  TS,  FC  SEPARATE 
SECTIONS  CONTAINERS 


PROCURED 


PROCURED 


IMPROVEMENT  IMPROVEMENT 
AVAILABLE  FROM  NO  FROM  49 

MISSILES  SPARES/CANS  SPARES  NO  CANS 


4439.2 
4439.8 
4445.5 

4476.2 


4393.6 


45.6 

46.2 


It  is  clear  that  it’s  better  to  spend  the  last  $161,000  on 


MFS  PROGRAM  DOCUMENTATION 


A  listing  of  the  Missile  Facility  Simulator  is  given  below. 
Three  FORTRAN  subroutines  which  the  GPSS  program  uses  are  also 
included.  Anyone  who  has  permission  to  use  the  CREATE  computer 
system  can  access  and  run  this  program  &y  typing  £ARD  OLD 
MEAN/MFS,  R  at  the  SYSTSK_level,  making  the  necessary  routing  and 
data  changes,  and  then  typing  RUN. 


•  f 
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10MS  i, 8,1*, 30;:, 8, »9  _ 

399ilIMITSl,,,10K 

40$iSELECTt AF.LIB/GPSS6A 

509 (OPTION: FORTRAN, NAP 

60* (SELECT j AEAA/ASUBS.O  *  . 

70* (SELECT (AF.LII/6PSS6I 
89* t SELECT (AF.LIB/GPSS6C 
90*(PRNFl( PF,R,S, AF.LIB/6PSS.PF 
1 OOliLlHITSt 15,40K,-1K, f OK 
1 10*:f ILE(H*,XIR,20R 
1 20 (SIMULATE; , , , ,PL 

1 30 (CONTROL  ;XAC,SOO,BLO, 300, ST0,1 30, CHA, 30, VAR, 3S,HSV, 209 

1 40(UNLIST;ABS 

1 50(IN1TIAI;XF18,-1 

160  :IN1T1AL;XF17,1 

179=* 

1894  THIS  ROUTINE  GENERATES  THE  EXPECTED  NUMBER  OF  REMOVALS  BT  BASE 
190*  EVERT  QUARTER  (90  DAYS).  A  TEST  IS  THEN  MADE  TO  DETERMINE 
210*  IF  BOTH  THE  TARGET  SEEKER  (TS)  AND  FLIGHT  CONTROL  (FC>  HAVE  FAILED. 
‘  210*  IF  YES,  THE  PROCESS  SPLITS  INTO  TUO  BRANCHES.  THE  FIRST,  BHSLE, 

220*  REPRESENTS  THE  MISSILE  NEEDING  BOTH  COMPONENTS.  A  DEPOT  UNFILLED 
230*  DEMAND  IS  CREATED.  A  CHAIN  (V10)  CONTANGO  MISSILES  WAITING  FOR 
2*0*  BOTH  CONPONENTS  IS  INCRENENTED.  IF  BOTH  SPARES  EXIST,  THE  CHAIN  IS 
230*  DECREMENTED  AND  THE  UNLIHKEB  MISSILE  DEMAND  IS  SENT  TO  BPARE  UHERE 
2*0*  THE  SPARE  COUTERS  ARE  DECREMENTED  AND  A  MISSILE  IS  BROUGHT  UP. 

270* 

280 (GENERATE; 0,0, 0,1 , ,4PH  EVERY  THREE  MONTHS 

290 (SPLIT; 14, INIT1 ,1PH  FOR  13  BASES 

300  INIT1:SAVEVALUE;PH1 ,FN1*,XH  INITIALIZE  TS  SPARES 

310  :SAVEVALUE;V2,FNt*,XH  INITIALIZE  FC  SPARES 

320  :ENTER,*V1?,FN17  INITIALIZE  TS  CANS 

330  (ENTER;V20,FN18  INITIALIZE  FC  CANS 

140  (TRANSFER;, INIT 

330* 

360  (6ENERATt;90,0,,,0,4PH 
370  iSPLIT;i4,INIT,1PH 

380  INIT (SAVEVALUE; PHI, V23  INITIALIZE  UP  MISSILES 

390  l SAVEVALUE ;V28,FN«PHT,XM 

400  REN0sSAVEVALUE;VB,V9,XH  EXPECTED  NO.  OF  REMOVALS 
403  (HELPA;3,PH1,XH*V8 

410(SPL1T;XH*V33,SFRED  SPLIT  OFF  REMOVALS 
420  NIX:TERMINATE 

430  SPREDiAIVANCE ; 43, 44  SPREAD  REMOVALS  THRU  OUT  QUARTER 
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440* 

4 30i TRANSFER ; . 1 85, LEFT , IOTH  Oil  IOTH  TS  AND  FC  FAIL? 

440  B0THtH£LPA;2,PHI ,1 ,4  FAILURE  IY  COMPONENT  COUNTER 
470  {SPLIT;!, HARK 

410  iASSI6M;4,1  CODE  AS  IOUBIE 
4 tO  BNSLEt SPLIT ;1,BINND 

500  BDOUN ( S AVEV  ALUE ; PHI  - , t  TAKE  4WSSILE  OOUN 

5tO:SPLIT;t ,ITEST  AWAITING  BOTH  COMPONENTS' 

5 20 :l INK; VI 0, FIFO  CH6-20  NEE IS  IOTH  COUP 

510* 

540  ITESTsTEST  S;CH*V10,0,NIX 

550  iTEST  G;V3,D,NIX  ARE  SPARES  AVAILABLE? 

540{UMLIMK;V10,NIX,I 

570  IPARE:SAVEVALUE;PM1-,1,XH  IEIUCE  TS  SPARES 
5I0>SAVEVALUE;V2-,1,XH  REDUCE  FC  SPARES 
5t0 1 SAVEVALUE ; PH I ♦ , 1  BRING  MISSILE  UP 

6IOl TERMINATE 
All* 

621  IUFDHjLINK;V10,FIFO  WAITING  FOR  BOTH  COMPONENTS 

630  BDHNBiLINK;l fFIFO  BASE  UNF1LLEI  DENANO 

640* 

6 SO*  THE  SECOND  BRANCH,  DCQMP,  REPRESENTS  THE  TWO  COMPONENTS  RE- 

640*  NOVEB  F RON  THE  MISSILE  ANI  SENT  TO  THE  BEPOT.  THE  COMPONENTS  ARE 
670*  FIRST  DELATED  FOR  TRANSPORTATION  TINE.  THEY  ARE  TAGSED  AS  1  (TS) 

610*  OR  2  (FC)  IN  PARAMETER  3.  THEY  ARE  REPAIREI  ANI  ADOED  TO  BEPOT 
6 tO*  STOCK.  A  DEPOT  UNFILLED  DEMAND  IS  UNLINKED  AND  SENT  TO  TESTA.  THE 
710*  GATE  ALLOWS  ONLY  ONE  OEMANB  TO  BE  PROCESSED  AT  A  TIME.  AT  TESTA,  PH4 
710*  IS  TESTED  TO  SEE  WHAT  TYPE  OF  DEMAND  IT  IS  -  1  (DOUBLE  CAN),  2  (SINGLE 
720*  TS)  OR  3  (SINGLE  FC).  A  TEST  IS  MADE  TO  SEE  IF  THE  DEMANB  CAN  BE 
730*  FILLED.  IF  YES,  APPROPRIATE  DEPOT  SPARC  COUNTERS  ARE  DECREMENTED,  THE 
740*  GATE  IS  OPENED  TO  ALLOW  ANOTHER  DEMAND  TO  IE  PROCESSED.  IT  IS  THEN 
750*  DELAYED  FOR  DTOB  TRANSPORTATION  AND  THEN  THE  SPARE(S)  ARE  ADDED  TO 
'40*  BASE  STOCK.  CONTROL  IS  TRANSFERED  TO  CHECK  TO  SEE  IF  ANY  MISSILES 
770*  CAN  IE  BR0U6HT  UP.  IF  THE  DEMAND  CAN  NOT  IE  PROCESSED,  IT  IS  RELINKED 
780*  TO  THE  OEMANB  CHAIN  AND  THE  GATE  IS  OPENED. 

7  tO* 

810  MARKiENTEI;W2t  TS  BASE  PIPELINE  BY  BASE 

810  >CNTER;V30  TS  TOTAL  PIPELINE  IY  BASE 

820  iENTER;V31  FC  BASE  PIPELINE 

830  s£NT£R;V32  FC  TOTAL  PIPELINE  IY  8ASE 

840  tENTER;}  TOTAL  PIPELINE 

830  IC0MPiHELPA;2,PH1 ,1,1 

840  sLEAVE;V2t  TS  REAOY  TO  SHIP 

870  :IEAVE;V31  FC  READY  TO  SHIP 

880  t ADVANCE ;VT 4  I  TOO  TRANS 

8fO  )HELPA;2,PH1,XFI8,1 

910  t SPLIT;) ,BR!TE 

9)0  ILEFT i ASS I G N ; 3 , 1  POSITION  CODE 

920 1  TRANSFER; , INURN 

930  fRITEiASSIGN;J,2  POSITION  CODE 

940  lNWRNtHELPA;2,PH1 ,1 ,3 
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950  (A0VANCEJV13  STAN0ARD  INUORK  TINE 

940  (HELPA;2,PH1 ,XF1|f 3 

9;o  SPARE (EiTER;PH3  ADI  TO  REPOT  STOCK 

910  tSATE  Iftp  ONLY  AC LOU  ONE  IN  AT  A  TINE 

9 tO  (UNLINKJ1 , TESTA, t  UNLINK  NEXT  OENANO 

1000  (LOGIC  Sjt  CLOSE  THE* SATE... 

1 «10  (TERNINATE 
1020 ♦ 

1030  TEST4tTEST  NE;PH4, 1 , OILE  OOUILE  CONTAINER? 
1040  (TEST  E;PH4,2,QNEFC  SINGLE  TS? 

1030  (TE3T  G;S1,0,RLINK  DEPOT  SPARES? 

1040  (LEAVE ;i  REIUCE  TS  SPARES 

1070  (LOGIC  R;1  OPEN  THE  GATE 

1000  (HELPA;2,PH1,1,2 

1090  (AIVANCE;V13  OTOB  TRANS 

1100  (HELPA;2,PH1,XF10,2 

mo  (Sau£value;phu,i,xn  abb  to  base  stock 

1120  (LEAVER  return  fron  iepst 

1130  (LEAVE ;V30  TS  RETURN  FRON  IEPOT 

1140  (ENTER;V19  aob  can  to  stock 

1130  (TRANSFER;, CHECK 

1140* 

1170  0N£FC( TEST  G;S2,0,RLINK  DEPOT  SPARES? 

1180  (LEAVER  REDUCE  FC  SPARES 

1190  (LOGIC  r;i  open  the  gate 

1200  (HELPA;2yPHI,1,2 
1210  (AOVANCE;VIS  OTOB  TRANS 

1220  (HELPA;2,PH1,XF1t,2 

1230  (SAVE VALUE ;92S1,XH  AOI  TO  BASE  STOCK 
1240  (LEAV£;3  RETURN  FRON  DEPOT  -  TOTAL 

1230  (LEAVE;V32  FC  RETURN  FRON  DEPOT 
1240  (ENTER‘fV20  AOB  CAN  TO  STOCK 
1270  (TRANSFER;, CHECK  J 

1 280*  1 
1290  OBLE(TEST  6;VI,0,RLINK  1)EP0T  SPARES? 

1300  (TRANSFE8;,PARE 
1310* 

1320  RL INK (LOGIC  RJ1  OPEN  THE  GATE 

1130  (LINK; 1, LIFO  PUT  BACK  ON  CHAIN  -  NO  SPARES 

1340* 

1330  PARE (LEAVE ;i  REDUCE  TS  STOCK 

1340(L£AVE;2  REIUCE  FC  STOCK 
1370  (LOGIC  R;t  OPEN  THE  GATE 
1380  :HELPA;2,PH1 , 1 ,2 
’ 390( ADVANCE ;V1 3  OTOB  TRANS 

1400  (HELPA;2,PH1,XF18,2 
1 4I0(SAVEVALUE;PHI*,1 ,xh  ado  to  iase  stock 
1420(SAVEVALUE;V2*,1,XH  A00  TO  BASE  STOCK 
1430  (LEAVE;3  RETURN  FROA  OEPOT  -  TOTAL 

1440  (LEAVE;V30  TS  RETURN  FRON  OEPOT 

1430  (LEAVE  *,V32  FC  RETURN  FRCN  DEPOT 


1  449s  TRANSFER; , CHECK 
1479* 

1409*  IF  MTH  THC  TS  1  FC  HAVE  NOT  FAILED,  A  TEST  IS  HADE  Tl  SEE  IF 
1490*  JUST  THE  TS  HAS  FAKES  8IVEN  THAT  THERE  HAS  A  FAILURE  AND  BOTH 
1300*  C8NF0NENTS  BIB  NOT  FAIL.  If  YES,  A  DEPOT  UNFILLED  IE HAND  IS 
1319*  CtCATEI.  THC  PROCESS  THEN  SPLITS  INTO  TWO  BRANCHES.  THC  FIRST, 
1329*  LHSLC,  REPRESENTS  THC  NISSILE  NEE I INS  A  TS.  A  CHAIN  (VI 1)  CON- 
1339*  TA1NINO  MISSILES  AUAITIN8  A  TS  IS  INCRENENTEI.  IF  A  TS  SPARE 
1349*  EXISTS,  THC  CHAIN  IS  BECREMCNTEB  AND  TNE  UNLINKED  NISSILE  DEMAND 
1339*  IS  SCNT  TO  LPARC  WHERE  THE  TS  SPARC  COUNTER  IS  DECRE RENTE!  ANI  A 
1349*  MISSILE  IS  IR0U6HT  UP. 

1379* 

1 SS9  LEFT t TRANSFER ; .750, RIGHT, LSPLT 

1399  LSPLTiHELPA;2,PN1 ,1,4  *  ‘FAILURE  IT  COMPONENT  COUIER 

1409  t SAVEVALUC; PHI  -  ,  1  TAKE  MISSILE  OOUN 

1 41 Oi SPLIT ; 1 ,LCOMP 

1120  LMSLEi SPLIT; 1,L0OMN 

1439  lLINK;V11,FIF0  FC  AWAITING  HATE 

1449  LBOUNiTEST  8;CH*VI 1 ,0,NIX 

1439  (TEST  9;iH«PN1,0,NIX  ANY  SPARE  TS'S 

1 449 t UNLINK; VI 1 , M I X , 1 

1479  LPAREjSAVEVALU£;PH1-,1,XH  REIUCE  TS  SPARES 
1 400 1 SAVEVALUC J PHI ♦ , 1  IRIN9  NISSILE  UP 

1499  s  TERMINATE 
1709* 

1719*  SINCE  TNE  BASE  HAS  JUST  RECEIVES  RESUPPLY  FROM  TNE  DEPOT,  TNIS 
1720*  ROUTINE  CHECKS  TO  SEE  IF  THERE  ARE  ANT  MISSILES  AUAITINQ  SPARES. 
1730*  EACH  TEST  CHECKS  TO  SEE  IF  AN  UNFKLEB  BEHANS  ANB  SPARE  ARE 
1740*  AVAILABLE.  MISSILES  NEEBINS  ONLY  ONE  COMPONENT  ARC  FILLER  FIRST. 
1730*  THIS  ROUTINE  HILL  ALSO  CANNIBAL12E  ON  COMPONENTS  IF  A  HISSILC  IS 
1749*  OOUN  NEEBINS  A  TS  ANB  ANOTHER  IS  OOUN  NEEBINO  A  FC. 

1770* 

1789  CHECK t TEST  8;V14,0, TRITE  ANT  AUAITINQ  TS  I  SPARC  AVAILABLE? 
1790lUNLINK;V11,NIX,t  REDUCE  AUAITIN8  TS 
1 S99  CONTI iSAVEVALUE;PN1-,1,XN  REBUCE  TS  SPARES 
1 S10iSAVEVALUE;PH1 f ,1  BRING  NISSILE  UP 

1020* 

1839  TRITEiTEST  6;VI7,O,TB0TN  ANT  AUAIT1N9  FC  1  SPARE  AVAIL? 
1S40iUNLINK;V12,NIX,1  REDUCE  AUAITINQ  FC 
1139  C0NT2:SAVEVALUE;V2-,t,XH  <  REDUCE  FC  SPARES 
1 B40 :  SAVE  VALUE;  PHI  ♦,  1  BRING*  .MISSILE  UP 

1 S70* 

1880  TBOTHiTEST  G;V18,0, CHAIN  AUAITINQ  BOTH  S  SPARES? 

1S99 l UNLINK ?Vt 0,MIX,1  REOUCC  AUAITINQ  BOTH 

1109  C0NT3J SAVEVALUC JV2-,1,XH  REDUCE  FC  SPARES 
19lOiSAVCVALUE;PH1-,t,XH  REBUCE  TS  SPARES 
11291 SAVEVALUC; PH l*,1  BRINS  MISSILE  UP 
1130* 

1149  CHAIMlTEST  Q;V2I,9,NII  CANNIBALIZE? 

1139  iUNLINN;V11,NIX,1 
1940  iUNLINK;V12,NII,1 


'lf70  lSAVCtfALUE;PN1»,1  IRINO  HISSILE  UP 
Iff#  (LINKJVIO, FIFO  STRIPPES  N1SSLE  DEMAND 
t  ff  O* 

2000*  THE  SECOND  IRANCH  REPRESENTS  THE  FAILED  TS  LOOKING  FOR  A  HATE. 
2010*  THE  TS  ENTERS  A  TS  AUA1T1M8  MATE  STORAGE.  IF  THERE  IS  NO  FC  AWAITING 
2020*  NATE  TO  THE  DEPOT,  A  TEST  IS  MADE  TO  SEE  IF  THERE  »ARE  ANT  SINGLE 
2020*  CANS.  IF  NOT,  THE  TS  HILL  HATE  A  MAX  OF  10  DAYS  FOR  EITHER  A  FAILED 
2040*  FC  OR  A  SINGLE  CAN.  AFTER  THE  HAX  DELAY,  TESTS  ARE  MARE  TO  SEE  IF 
2050*  EITHER  A  SPARE  FC  EXISTS  QM  SINGLE  CAN.  IF  NOT,  A  NISSLE  IS  TAKEN 
2040*  DOWN.  THE  REMOVED  FC  PROCEEDS  1HTH- THE  TS  TO  THE  DEPOT  UHILE  THE 
2070*  TAMER  DOHN  MISSILE  NEEDING  A  FC  IS  PUT  ON  A  CHAIN  AND  CONTROL  IS 
2080*  TRANSFERED  TO  CHECH  TO  CHECK  FOR  CANN I IAL I ZA T ION . 

2000* 

2100  LCOHPt ASSIGN 1 0  NAX  •  OF  DATS  TO  UAIT  FOR  MATE 

2110  (ENTER;V29  TS  FAILED 

2(20  tENTER;V30  TS  TOTAL  PIPELINE  8T  IASE 

2130  >ENTER;3  TOTAL  PIPELINE 

2t40iENTER;V0  IS  AWAITING  HATE 

2130  TEST t TEST  S;S*V4,0,NIX 

2140  i TEST  G;S*VS,0, WAIT  IS  THERE  FC  AWAITING  MATE* 

2t70slEAVC;VS  REDUCE  FC  AUAITIMG  NATE 
21S0tLEAVC;V4  REDUCE  TS  AHA] TING  MATE 
2182  (SPLIT  *,1, LINKS 
2190 l TRANSFER;, DCOMP  SENS  TO  DEPOT 
2 192  LINKS (ASSIGN; 4, I  CODE  AS  A  DOUBLE 

2194  ilink;i,fifo 
2200* 

2210  UAITt TEST  C;S*V19,0,RDUC1  ANT  SINGLE  CAMS* 

2220 1 ADVANCE f 1  UAIT  ONE  DAY 

2230tt00P; JPN, TEST  LOOP  FOR  10  DAY  NAX 
2240* 

2242  (TEST  N€;S*U4,0,NIX 

2250  (TEST  0;S*Vl9,fl,TSTFC  ANY  TS  SINGLE  CANS* 

2240* 

2270  RDUCt (LEAVE;f1f  REDUCE  SINGLE  TS  CANS 
2299  (LEAVE ;V4  . 

2290  (ASSIGN^, 2  CODE  AS  A  SINGLE  TS 
2100  (SPLIT;!, DIEFT 
2310  (LINK;!, FIFO 
2320* 

2320  T$TFC(AS$I6M;4, 1 
2140  (LEAVE ;V4 

23SO  (SPLIT; 1 ,IDNND  IASE  UNFILLED  DEMAND 
2)40  (TEST  6;XH«V2,0,N0FC  ANY  SPARE  FC'S* 

2J70(SAVCVALUE;V2-,1,XH  REDUCE  FC  STOCK 
2180  C0ICt$Pl!T;1,DRITE  2  COMPONENTS 
2)90* 

2400  8LIFT(ASS1IN;3,I  CODE  AS  TS 
24I0(ASSI6N;2,1  CODE  AS  FAILED 

2420  IL£AVC;V29  TS  READY  TO  SNIP 
2430  irOI(HCLPA;2,PM1,1,1 


•  ‘  .  ‘  •  *  «  *  %  *  \ 
I.'..- 
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2441  (ADVANCE; VI 4  ITOO  TtANt 

2430  (HElPA;2,PH1,XFtD,1 

2 440 (TEST  E;PH2,0,INURX  COMPONENT  FAILED? 

2470 1  TRANSFER ;, SPARE  6 101  COMPONENT  -  ASS  TO  DEPOT  STOCK 
2480* 

2490  IR1TE(ASSI8N;3,2  COSE  AS  FC 
2493  sENTER;V32  FC  TOTAL  PIPELINE 
2300tASSIGN;2,0  COSE  AS  600B 
23101  TRANSFER; ,»TOB 
2324* 

2334  N0FC(SAV£VAIUE;PH1-,1  TAKE  NISSILE  DO UN 
2340iSPLlT;l,C0DE  -  — ... 

2330  SHSLEiSPllT;1, CHECK 
2340* 

2374  LDNNIiLINKJVI 2,FIF0  TS  AWAITING  NATE 
2380* 

2390*  SINCE  BOTH  COMPONENTS  DID  NOT  FAIL  AND  THE  TS  ALONE  BID  NOT  FAIL, 
2400*  THE  FC  FAILED.  A  DEPOT  UNFILLED  DEMAND  IS  CREATED.  THE  PROCESS  THEN 
2410*  SPLITS  INTO  TUO  BRANCHES.  THE  FIRST,  RHSLE,  REPRESENTS  THE  NISSILE 
2420*  NEEBIN8  A  FC.  A  CHAIN  (V12)  CONTAINING  MISSILES  AUDITING  A  FC  IS 
2430*  INCRENCNTED.  IF  A  FC  SPARE  EXISTS,  THE  CHAIN  IS  DECREMENTED  AND  THE 
2440*  UNLINKED  NISSILE  OENANI  IS  SENT  TO  RPARC  WHERE  THE  FC  SPARE  COUNTER 
2430*  IS  DECREMENTED  AND  A  NISSILE  IS  BROUGHT  UP. 

2440* 

2470  RIGHT(HELPA;2,PH1 ,1,3  FAILED  COMPONENTS  COUNTER 
2480  :SAVEVALUE;PM1-,t  TAKE  MISSILE  OOUtf 
2490 t SPLIT; 1 ,RCQNP 

2700  RNSLEi SPLIT ;t,RDOUN  AWAITING  TS 
2710iLINK;V12,FlFO  TS  AUAITING  MATE 
2720* 

2730  ROQUNsTEST  G;CH*V1 2,0, NIX 

2740  s TEST  G;XN»V2,0,NIX  SPARE  FC  AVAILABLE? 

2730:UNLINK;V12,NIX,1  UNLINK  UNFILLED  DEMAND 
2740  RPAR€:SAVEVALUE;V2-,1,XH  REDUCE  FC  SPARES 
2770:SAVEVALUC;PH1+,1  BRINS  MISSILE  UP 
2780: TERMINATE 
2790* 

2800*  THE  SECOND  REPRESENTS  THE  FAILED  FC  LOOKING  FOR  A  MATE.  THE  FC 
2110*  ENTERS  A  FC  AUAITING  MAI#  STORAGE.  IF  THERE  IS  NO  TS  AKA I  TING  MATE 
2820*  TO  THE  DEPOT,  A  TEST  IS  MADE  TO  SEE  IF  THERE  ARE  ANT  SINGLE  CANS 
2830*  IF  NOT,  THE  FC  WILL  WAIT'D  NAl  OF  10  DAYS  FOR  EITHER  A  FAILED  TS 
2140*  OR  A  SJMGLE  CAN.  AFTER  THE  MAX  DELAY,  TESTS  ARE  MADE  TO  SEE  IF 
2830*  EITHER  A  SPARE  TS  EXISTS  OR  A  SINGLE  CAR.  IF  NOT,  A  NISSLE  IS  TAKEN 
2840*  DOWN.  THE  REMOVED  TS  PROCEEDS  WITH  THE  FC  TO  THE  DEPOT  WHILE  THE 
2870*  MISSILE  TAKEN  DOUN  HEEDING  A  TS  IS  PUT  ON  A  CHAIN  ANO  CONTROL  IS 
2880*  TRANSFERED  TO  CHECK  TO  CHECK  FOR  CANNIBALIZATION. 

2190* 

2900* 

2910  RC0HP:ASSIGN;3,!O  TO  DAY  MAX 

2920  :£NTER;V3t  FC  BASE  PIPELINE 

2930  :ENTER;V32  FC  OIPOT  PIPELINE  BY  BASE 


2940  (ENTER;!  TOTAL  PIPELINE 
2930»CNTER;V5  PC  AWAI TINS  MATE  * 

2960  RTESTiTEST  G;$*V3,0tNIX 

2970  (TEST  G;S«V4,0,RUAIT  TS  AWAITING  NATE? 

2980t LEAVE; VS  REDUCE  PC  AWAITING  MATE 

2990ll£AVE;V4  REDUCE  TS  AUA1TIN8  NATE 

2992  tSPLITjl, LINKS 

3000* TRANSFER;, ICONP  SENS  TO  DEPOT 

3010* 

302#  WAIT j TEST  E;S*V20,0,RDUC2.  —ANT  SINGLE  CANS 
3030tA0VANCE;l  WAIT  ONE  OAT  ‘:'~ 

3040 « LOOP ;3PH,R TEST  LOOP  FOR  10  DAT  MAX 

30S0« 

3032  (TEST  N£;S*W5, 0,NIX 

3040  iTEST  6;S*V20,0,TSTTS  ANT  PC  SINSLE  CANS 
3070* 

3080  R0UC2tLEAVE;V2O  REOUCE  PC  CANS 
3090  (LEAVERS 

3100  (ASSIGN;4,3  CODE  AS  SINGLE  PC 

3110  sSPL!T;l fRRlTE 

3120  :LINK;i,FIFO 

3130  TSTTS* ASSIGN ;4, 1 

3140  (LEAVE ;V3 

3130  iSPLIT;i,BOMNO  BASE  UNFILLED  DEMAND 
3140  (TEST  GjXH»PH1 ,0,N0TS  ANT  SPARE  TS  S? 

3 1 70 (SAVE VALUE; PHI", 1 ,XH  REDUCE  TS  STOCK 

3180  rcope»split;i,rrite 

3190  RLEFT i ASSI6N;3, 1  CODE  AS  TS 

3193  iEN TERJV30  TS  TOTAL  PIPELINE 

3200>ASSIGN;2,0  CODE  AS  GOOD 

3210iTRANSPER;,BTOD 

3220* 

3230  RRlTEsASSI8N;],2  CODE  AS  PC 

3240lASSI6N;2,1  CODE  AS  FAILED 

3230  :L£AVE;U31  PC  REACT  TO  SHIP 

3240lTRANSPER; ,BTOI 

3270*  f 

3210  N0TSiSAVEVALU£;PH1-,1  TAKE  MISSILE  DOUN 

3290 (SPLIT; 1 ,RCODE 

3300  SMLE1 (SPLIT;) , CHECK 

3310* 

3320  RDNNlllINKJVI I ,FIFO  PC  AUAI TINS  NATE 
3330* 

3340 (GENERATE; 90,0, , , 1 , 2PN 

3330  iASSIGN;2,13  MAX  NO.  OP  BASES 

3340  QUTiASS!SN;i,U22  REVERSE  SEQUENCE 

3370  |SAVEVALUE;14,PH1  S4VE  BASE  NUMBER 

3380  iHELPA;l,FN«PH1,V2l 

3390  iSAVEVAL0E;V24,O,XH 

3400  t S4VCVAL WE ; V23 , 0, XH 

3410  iSAVEVALUC ;V24,0,XM 


QTR  NUMBER 


3420  I LOOP} 2 PH, OUT 
,  3430  aSAV£V4LUE;l7+,1 

*  3440t  TCRMIMATE;  1 
343011 sVAIl ABLE;SI*S2 
344002 a  VAI I ABLE } 1 3+PH1 
347003  a  VAt  1 4IIE  ;XR*  PHI 4XM* V2 
3 48004 tVARI ABLE ;9+PH1 
349083s VARIABLE; 23+PN1 
330088sVARIABLE;J0*PN1 

331 009 if VAR! ABl£;XF*PH1 *.0054*300  EJPSCTEO  NO.  OF  REMOVALS  •  100 

3320810 a VARI ABLE ;S+PH1 

3330  01 1 s  VAR  I ABLE ; 20 ♦PHI 

354001 2 tVARIABLE;35*PH1 

3330013sVAtIABlE;90 

3340014 »VAR I ABLE; JO 

'570013 » VAR  I ABLE ;  1 4 

350001 4  s  VAt I ABLE ;CH*V1 1 4XH4PHI 

33VOOI7sVAR!ABLE;CH*V12*XH*V2 

340001 Bt VARIABLE ;CH*V10*XH4V2«XH*PM1 

341  ONI  9 tVARI ABLE J 40+PH1 

3420O20sV4RIABLE;35+PHI 

3430021 sVARIABLE;CH«V11*CH«V12 

3440022s VARIABLE; I4-PH2 

3450B23iVARIABLE;(FN:*PH1-XH*V28>»x;«PH1  CURRENT  UP  MISSILES 
3440024  s  VARIABLE;  1 1 34-PHI 
3«?0023:VARIABIE;130+PHI 
3430024s VARIABLE; 143+PH1 

3490028:VARIABLE;1854PH1  PREVIOUS  MONTHS  POSS  MISSILES 

3:00029iVARIARLE;704PH1  ts  base  pipeline 

3710130 t VAR l ABLE JOS+PHI  IS  TOTAL  PIPELINE  IT  BASE 

3720031 svariable;ioo*phi  fc  base  pipeline 

3730032  a VAR  I ABLE ;1 15»PH1  FC  TOTAL  PIPELINE  BY  BASE 

3733033  a VAR I ABLE ;1404PH1 

3730* 

37«0O1sFUNCTI0N;lF17,021  POSS  "ISSUES  -  BASE  I 

377005,39/4,44/7,42/8,42/9,41/10,41/1 1 ,41/1 2,40/13,40 
378001 4, 40/13, 39/14, 39/1 7, 39/1 B,f?/19, 59/20, 38/21, 38 
3790022,38/23,38/24,38/25,57 
30004 

J810B2sFUNCT1Qn;XF17,D21  POSS  "ISSUES  -  84SE  2 

382003, 89/4, 98/7, 93/8, 92/9, 92/1 0,91/1 1  ,91 /1 2, 90/1 3, 90 

3030014,09/15,89/14,89/17,89/18,80/19,88/20,08/21,87 

3140022,17/23,07/24,04/25,84 

38304 

3840B3sFURCTIQN;Xf 17,021  POSS  MISSILES  -  B4SC  3 
307005,1 18/4,131/7, 1 24/0,123/9,122/10, 1 22/1 1 ,121/12,120/13,120 

3130814,119/13, 119/14, 119/1 7, 118/13, 11 8/19, 117/20, 117/21,1 17 

3090022,114/23,114/24,115/23,115 

39004 

391 084 s FUNCT ION; XF  17,021  POSS  "ISSUES  -  BASE  4 

39200S, MO/4, 144/7, 153/8, 134/9, 153/ 10, 152/11, 151 /1 2, 130/1 3, 150 
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'3930014,149/15,149/10,148/17,148/18,147/19,147/20,1 44/21 ,140 
3440022, 145/23, 145/24, 144/25, 144 
3450* 

393005 tFUNCTIQN;XF 17, 021  P083  MISSILES  -  BASE  5 

347005, 177/0, 197/7, 103/0, 10579, 183/10, 182/1 1,1 82/1 2, 1)1 /1 3; 180 

3480014, 179/15, 178/10, 178/1 7, 177/18, 177/19, 174/20, 175/21, f 75 

3490022,174/23,174/24, 1 73/25,1 72 

4000*  - 

4O10O4sFUNCri0N;XF17,D21  POSS  MISSILES  -  BOSE  4 

402005,207/0,220/7,217/8,215/4,214/10,213/11,212/12,211/13,210 

4030014,209/15,208/10,207/17,207/18,200/19,205/20,205/21,204 

4040022,203/23,203/24,202/25,201 

4050* 

403007 tFUNCTIONjXFI 7, 021  POSS  MISSILES  -  BASE  7 

407005,237/0,202/7,248/8,240/9,245/10,243/11,242/12,241/13,239 
4080014,239/15,238/10,237/17,234/18,235/19,235/20,234/21,233 
.  4090022,232/23,231/24,231/25,230 

4100* 

411OO0>fU«CTlON,*XF17,021  POSS  MISSILES  -  IASE  8 

412005,240/0,245/7,279/8,277/9,273/10,274/11,272/12,271/13,234 

4130014, 208/ 1 5 , 208/ 10,207/17,200/18,205/19, 234/20 , 233/21 , 232 

4140022,201/23,200/24,239/25,259 

4150* 

41  OOI9tFU8CUON;xf  17,021  POSS  MISSILES  -  IASE  9 

417005,290/3,328/7,310/8,308/9,304/10,304/11,303/12,301/13,299 

4180014,248/13,247/10,290/17,293/18,294/19,243/20,242/21,291 

4190022,240/23,289/24,288/23,287 

4200* 

4210110 jFUMCT 104; IF 1 7,021  POSS  MISSILES  -  IASE  10 

422005,290/0,328/7,310/8,308/9,304/10,304/11,303/12,301/13,299 

4230014,298/15,297/10,294/17,295/18,294/19,243/20,242/21,291 

4240022,290/23,289/24,288/25,287 

4250* 

4230011 tFONCTlOOjXFl 7, 021  POSS  MISSILES  -  BASE  11 

427005,290/0,328/7,310/8,308/9,301/10,504/11,303/12,301/13,299 

428001 4, 298/ 13,297/ 10, 290/1 7, 295/18,294/19, 293/20, 292/21 ,291 

4290022,290/23,284/24,288/25,287 

4300* 

431 081 2 tFUNCT 100; XF 17,021  POSS  MISSILES  -  BASE  12 

432005,325/0,330/7,341/8,339/9,333/10,335/11,333/12,331/13,329 

4330014,328/13,327/13,320/17,325/18,324/19,123/20,322/21,320 

4340022,319/23,318/24,317/23,310 

4150* 

4330013 iFUMC T ION ; XF 1 7 , 02 1  POSS  MISSILES  -  IASE  13 

437005, 444/0, 442/7, 435/8, 402/4, 459/10, 453/1 1, 454/12, 451 /I J, 449 

4380014,447/13,440/13,444/17,443/18,441/19,440/20,438/21,437 

4390022,435/23,434/24,432/25,431 

4400* 

441001 4lFOMCTIOO;XF17, 021  POSS  MISSILES  -  BASK  14 

442003,592/0,055/7,019/8,013/9,011/10,001/11,305/12,302/13,599 

4430014,397/15,593/10,593/17,591/18,389/19,317/20.515/21,581 
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4440*22, 5*1/23, 579/24, 577/23, 575 
4450* 

4440*1 9 iFUHCT ION ;XF 1 7 , 821  POSS  MISSILES  -  BASE  IS 

4470*5,887/4,983/7,929/8,923/9,917/10,912/11,908/12,903/13,898 

4480*14,895/15,892/14,889/17,880/18,883/19,380/20,377/21,874 

4490*22,871/23,848/24,845/25,842 

4500* 

4510»14«FUNCTI0*;P*1,D»3  49  SPA8E  Q*C* 

452081,1/2,2/3,2/4,3/5,4/4,4/7,3/8,5/9,4/10,4 

4530811,4/12,7/13,9/14,12/13,18 

4331* 

433211 7 iFUKCTIO*; PHI ,015  rs  CAMS 

453381,10/2,10/3,10/4,10/3,10/4,20/7,20/8,20/9,20/10,20 
4534*1 1 , 30/ 12,30/ 13,30/ 14,30/15,30 
4535* 

4534»I8iF0NCT10N;PH1,D13  F<L  C/1MS 

4537*1,10/2,10/3,10/4,10/5,10/4,20/7,20/8,20/9,20/10,20 

4538*11,30/12,30/13,30/14,30/15,30 

4539* 

4550  :STA*r;24,,1 
4340  :END 
43700jE*DJ08 


ready 


io««s,r<ac>  t,8.u,3»;;,»,'9 
29t«ttCNI  iflMMiHi 
34fslfNITS«,„lO« 

40«i FORTY) DECK 

3Q9tPRttFLtC*,tt,3»R£AN/HSUB8«0 
60  SUUtmm  MELPI  (1P0SS,*MCS) 

71  CHARACTER  TEXTW40  '  . 

89  CHARACTER  TEXT2*40 

91  CHARACTER  TEXT3*40 

1 00  CHARACTER  TEXT4*40 

1  TO  TEXT1  *  •  i*  MISSILES  **  «  FAILURES  »*  **  SPARES  »*** 

120  TEXI2  «  *  M  NSLES  AUAIT  ••  •  AUAIT  HATE/CAN  *  DEPOT  PIPELINE  * 

110  1 •* 

140  TEXTS  *  "BASE  POS  OP  l  UP  TS  FC  BOTH  TS  CARS  FQ  CANS 

ISO  1* 

140  TEXT#  *  *  TS  FC  BOTH  TS  FC  I  TOO  INIIK  DTOBM 

170  I  BASE  >  LOADXFUA) 

tOO  IQTR  *  LOAOXF (17) 

•140  IF(I0TR.LT.3)RETURN 

191  NOTRMQTR-4 

192  IF<N0TR.6T.1)  60  TO  3 

'194  CALL  STORXF(21fO) 

195  CALL  STBRXF(22,0> 

199  3  CORTINUE 

200  lFHBASE  .NE.  1 )  60  TO  7 

20S  CALL  SIORXF<19,0) 

297  CALL  ST8RXF(29,0) 

210  ORITE<Af100)TEXTt,TEXT2 

220  0R|TE(A|191 >TEXT3yTEXT4 

210  UR|Tt( 4,102)  MOTR 

240  100  F0RNAT<1Ht,AA4,A40> 

2  SO  101  F0RI9OT 1 1 X ,460 1 A69) 

240  102  FORItAT ( 1  ROf  1 0HOUARTER  .•  ,12) 

270  7  AATETS  •  1STQ21 IBASEtf) 

200  RATEFC  •  IST02T IB4SE+23) 

290  NCEBBT  •  ICNA21 I BASE +3) 

300  NCrtTS  «  1CHA2T IBASE+20) 

310  RCEBFC  »  ICNA2T IIASE+15) 

320  RSlSOP  «  LOABXFdtASE) 

322  CALL  ST|RXF<19,L0AIXF<I9)+IP9SS> 

320  CALL  8T|RXF(20,LOAIXF(20)4>R8LSUP) 

310  OPPCT  *  FLQ9T<HSLSUP)/FL0Af < IPQ8S)* 100.0 

340  IBTQO  •  LOAOXNI I BASE ♦74) 

330  IBTOt  •  L0AIXN1 IBASC+03) 

340  OTIC AN  •  IST02<1BASEHO> 


370  NFCCAM  »  IST02( IBASE+53) 

310  NTSSPR  >  LOADXHUBASE) 

‘3 tO  NFCSPR  •  LQAOXH( IBASE+13) 

400  I  MURK  *  L0ADXH1 IB4SE+100) 

410  ITSFl  ■  LOADXH( IBASE+t 13) 

420  IFCFL  »  LQADXHI IBASE+130) 

430  IBQTHF  •  LOADXHC IBASE-H43) 

440  URITE(6,20) IBASE, IPQSS,HSLSUP,UPPCT ,  ITSFL ,  IFCFL',IBOTHF,NTSSfF 

430  1  NT SCAM, NFCSPR, NFCC AN, NEED TS, NEEDFC, NEEBB T ,HATETS , NATEFC, IBT0D 

440  2INURK, IDTOB  .  — 

470  20  FORMAT (1  HO, 13,  IX, 2(13,  IX)  ,F5^'F , 2X , 3<  12 ,2X> ,2X ,2( 2X, I2,3X, 13) , 
480  18X,2<I2,2X),1X,I3,8X,2<I3,3X),5X,I3,1X,I4,2X,I3> 

4 tO  IFUBASE.LT. IS)  RETURN 

4t2  TOT«I$»IOAOXF<1T> 

4t4  T0TUP*LOADXF(2O> 

4tS  CALL  ST0tXF<21 ,LOADXF < 21 )*LOADXF(20) ) 

4t4  TOTUPPCT»TOTUP/TOTNIS*1 OO. 

4t7  ITOT«TQTUPPCT 

4t8  WRITE < 4,30 JTOTMIS, TO  TUP, 10TUPPCT 

41?  CALL  STORXF ( 22,LOAOXF(22)+1TOT ) 

500  30  FORMAT (1HO,/,2X,FS.O,F7.0,a  TOTAL  l  AVAIL  *  \F8.4> 

501  IFd4QTR.LT.  1 9 ) GO  TO  200 

502  AVUP*FLOAT(LQAOXF (21 ) )/ FLOAT ( NOT R) 

S04  AVPCTUP=FLQAT ( L0A0XF(22) ) /FLOAT (NO TR) 

500  URITE(4,300)AVUP,AVPCTUP 

507  300  FORMAT ( *  *,/,-AWE  NO  UP  »  \F10.3,MAV£  PCI  OP  *  M,F10.4> 

508  200  RETURN 

SO?  END 

510  SUBROUTINE  HELP2(  IBASE, HOUT,K) 

-20  GO  T011, 2, 3, 4,5, 4), K 
S30  1  IB  »  I  BASE *70 

540  IBTOO  *  LOAOXH(IB) 

530  CALL  STORXH(  IB, 1BT0D+IMQUT ) 

540  RETURN 

570  2  IB  «  I BASE+93 

510  IDTOB  *  LOAOXH(IB) 

5t0  CALL  STORXH(  I B ,  I D  T 0B4>  I IfEfU T  > 

600  RETURN 

610  3  IB  a  IBASE+100 

620  INURK  a  LOADXH(IB) 

630  CALL  ST0BXH1  ID,  INURKUNOUT) 

640  RETURN 

650  4  IB  a  IBASE+1  IS 

440  ITSFL  >  LOADXH(ID) 

670  CALL  STO«XNUB,ITSFL*INOUT> 

680  RETURN 

690  3  IB  a  IBASE+130 

700  IFCFL  •  LOAOXH(IB) 

710  CALL  STORXH(IB,IFCFLUMOUT> 

720  RETURN 

730  *  18  ■  I  BASE* 143 


20 


740 

IBOTHF  *  LQA0XHUB1 

750 

CALL  S  TORXH<  IB,  IBQTHFMNOUT) 

740 

RETURN 

770 

ENI 

780 

SUBROUTINE  HELP3<  I  BASE  ,rt(j  > 

702 

XHU*FLOAT ( rtU ) / 1 OO . 

783 

NBASE  »  140  ♦  IBASE 

790 

NP0IS*0 

800 

A»EXR(*XIIU) 

810 

Sa1 .  * 

820  4 

CALL  PTIrtC  <  RN1 ) 

830 

RN1*URIFHI <RN1 ) 

840 

S*S»RN1 

330 

IF(S'A>9,7,7 

840  7 

NP0ISaNP0I3*1 

870 

60  TO  4 

880  9 

CALL  STQRXH ( NBASE, NR01S) 

883 

RETURN 

890 

ENB 

rsady 

* 

« 


J 


Jt 


] 

This  section  may  only  be  meaningful  to  GPSS  programmers. 
It  describes  the  storages,  chains,  save  values,  and  locations 
|  .  of  data  initialization 'statements  in  the  program. 

AIM-7F  NUMBERING  SCHEME 


2 

3 

10-24 

26-40 

41-55 

56-70 

71-85 

86-100 

101-115 

116-130 


STORAGES 

Depot  Stock  -  TS 
•  *». 

Depb't  Stock  -  FC 

Total  Pipeline  (turnaround  time) 

TS  Awaiting  Mate  to  Depot 

FC  Awaiting  Mate  to  Depot 

TS  Single  Cans 

FC  Single  Cans 

TS  Base  Time  to  Ship 

TS  Total  Pipeline 

FC  Base  Time  to  Ship 

FC  Total  Pipeline 


1 

6-20 

21-35 

26-50 

• 

1-15 

16 

17 

18 


CHAINS 

Base  Unfilled  Demands  at  Depot 

Down  Missiles  Needing  TS  and  FC 

fDown  Missiles  Needing  TS 

"Down  Missiles  Needing  FC 

FULLWORD  SAVEVALUES 
Up  Missiles 

Base  Number  (used  for  subroutine) 
Quarter  Number 
-1  (for  subroutine) 


2: 


19 

20 
21 
22 

1-15 

16-30 

31-45 

71-85 

86-100 

101-115 

116-130 

131-145 

146-160 

186-200 

DATA  REFERENCE  SHEET 
LINE  NO 
320 
330 
450 
1580 

2iao 


2910 

3350 

3510 


Possessed  Missiles 
Up  Missiles 

To'tal  Number  Available  Missiles 

Average  Percent  Available  Missiles 

HALFWORD  SAVEVALUES 

TS  Base  Spares 

FC-Base  Spares 

Expected  Number  of  Removals 

Base  to  Depot  Pipeline 

Depot  to  Base  Pipeline 

Inwork  Pipeline 

Cause  of  Missile  Failure  -  TS 

Cause  of  Missile  Failure  -  FC 

Cause  of  Missile  Failure  -  TS  and  FC 

Previous  Months  Up  Missiles 

DESCRIPTION 
Initial  TS  Cans 
Initial  FC  Cans 

P(TS  FC  Fail/Failure)  (.185) 

P 

P(TS  Fail/Failure  TS  FC  Failure)  (.750) 

Maximum  number  of  days  awaiting  mate  to 
depot  or  single  can  (10)-TS 

Maximum  number  of  days  awaiting  mate  to 
depot  or  single  can  (10)-FC 

Maximum  number  of  bases  (15) 

Monthly  failure  rate  (.0054) 


23 


! 

j  3550 

|  *  3560 

.  3570 

!  3740 

f 

3760-4490 

4510-4530 

4550 

4556 


Depot  inwork  time  (90  days) 

Base  to  depot  transportation  (30  days) 

Depot  to  base  transportation  (14  days) 

Defines  depot  pipeline  interval  breakdown 
(0-133,  134,  135 . 194) 

Possessed  missiles  by  base  by  quarter 

Initial  TS  and  FC  spares  by  base 

Simulation  length  (24  qtrs) 

Frequency  of  GPSS  output  generation  (1  every 
quarter) 


OUTPUT  STORAGES  DESCRIPTION 
71-85  Base  turnaround  time  -  TS 

101-115  Base  turnaround  time  -  FC 

86-100  Pipeline  time  (resupply  time)  -  TS 

116-130  Pipeline  time  (resupply  time)  -  FC 

Total  turnaround  time  (all  bases) 


3 


SAMPLE  OUTPUT 


The  output  below  is  from  the  10th  quarter  of  a  20  quarter 
run.  The  first  page  will  make  the  most  sense  to  non-GPSS  program¬ 
mers.  The  other  pages  give  detailed  information  about  system 
usage,  and  statistics  on  various  legs  of  the  pipelines.  The  pro¬ 
gram  and  data  which  generated  this  report  are  given  in  Chapter  V. 


_ Vi-,  .11*1  ILL.  »1 _ *J - M _ iJMii  .  u _ 

3* >*  »os  uf*  *  j»  r>  rc  nr.  rs  n-a  tc  c«<s 


ac»»ri»  *  io 


r>  rc  3jr. 


rs  »c  jroa  :*.*  jrs 


i  i>  l»  133.3  0  0  3  0  0  0  3 


1  II  »  11?  <>}.}  3  2  3 


i  1  >  I  1?3  ?J.J  1  0  3 


0  3  0 


3  0 


JJ>alQ _ i- 


QfNEAAL  fuiP  IS  i_  SiflULAiOl-  S  T  S 


A3S0*  j’i  CLOCK  • 


a£iat:,e  cue*  ■ 


ieaninausn  to  SO  ■ 


CUS^tNf 

ror*t 

15 _ 

C  U 

iX~SAt£A  - 

*«c*r  ror*t 

-  a 

( 

SiUtX- 

E»  MANSE  3 

15 

j  9  £  ■<  *  <  r 

C  1  A 

9# 

SAL  1  1 

tii-SiLt* - 1 

333- 

_Li*-  «£-?*.  - 

.  C_  333. — 

HI 

SAU-L 

1  E  •  MAS.SE  3 

I  )S* 

1J»  «El*a 

0  310 

19« 

SAL  I  1 

ran 


1333  111*  UNLINK 


1>5»  too* 


1  1333  133*  unlink 

1  A  S3  1  3  E  *  ENT*.* 

0  J6A 

_ a _ *ir_ 

131*  unlink  1 
t3ULi.UU- - ( 

1  SEiS  1 J3*  TEST 

0  SA91 

US*  LEAVE  1 

S  A  IE  Hi*  TEST 

ia.aA_i5ij_usr_. . 

ssi  ue»  le**e 

IIM _ .1 0 2 C  .MANSE. 

$  31  1  aE*  S*  <E* 


Si*  Ull  TEST 

Jit _ 1  Ji*_.  i AViJL_ 

s i i  ua*  -it** 

6ii _  1A1C  ASSIGN- 

50A  1A8*  SPLIT 


19S  1Ei»  J At  I  NK 


103  3M*  ASSIGN 


IS  333*  ASSIGN 


13*  1 1  A «  SAVE* 


SAA  13A*  SAVE* 


SI  1 iA •  LEAVE 


o  Sit  1A9*  assign 

_ Q _ 3ZZ__liAJ_ifI-U_ 

0  136*  15«*  AOVANC 

_0 _ ill _ 14A*_£NU.1_ 

o  aoi  ia*«  s*ut 


19  1E9*  SAVE  A 


ISA*  139*  LEAVE 


133  30a*  leave 


133  31A*  ASSIGN 


3  35  33  A*  SAVE! 


jnuses  atocAS  a i e  noi  sboun 


